COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	C COMBINES .SCR FILES INTO ONE LONG .DAT FILE
C00004 ENDMK
C⊗;
C COMBINES .SCR FILES INTO ONE LONG .DAT FILE
C LOAD WITH 'FORNAM.FAI'
	DIMENSION I(30),NAM(30)
	EQUIVALENCE (I1,I(1))
1	FORMAT(' TYPE INPUT NAME ',I1,' -- '$)
2	FORMAT(' TYPE OUTPUT NAME -- '$)
3	FORMAT(30A5)
4	FORMAT(' FILE "',A5,'.DAT" HAS BEEN WRITTEN.'//)
10	FORMAT(' TYPE INPUT NAME --'$)
	N=0
11	N=N+1
	TYPE 1,N
	ACCEPT 3,NAM(N)
	IF(NAM(N).NE.' ')GO TO 11
	TYPE 2
	ACCEPT 3,NOUT
  	CALL OFILE(21,NOUT)
	M=0
12	M=M+1
	IF(M.GE.N)GO TO 100
CC	CALL IFILE(1,NAM(N))
	REWIND 1
	CALL FORNAM(NAM(M),'SCR')
13	READ(1,3)I
	DO 20 K=30,1,-1
20	IF(I(K).NE.' ')GO TO 21
21	IF(I1.EQ.' FINI')GO TO 12
	WRITE(21,3)(I(L),L=1,K)
	GO TO 13
100	WRITE(21,3)(I(L),L=1,K)
	END FILE 21
	TYPE 4,NOUT
	END